home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / fractal.arc / FRACTAL3.BAS < prev    next >
Encoding:
BASIC Source File  |  1986-05-03  |  879 b   |  24 lines
  1. 10 DIM DX(11),DY(11):KEY OFF
  2. 20 FOR N=0 TO 6:READ SD(N),RD(N):LN(N)=1!/3!:NEXT:LN(2)=SQR(LN(1))
  3. 30 A=0:FOR D=6 TO 11:DX(D)=COS(A):DY(D)=SIN(A)
  4. 40 A=A+.52359879#:NEXT
  5. 50 FOR D=0 TO 5:DX(D)=-DX(D+6):DY(D)=-DY(D+6):NEXT:X1=534:Y1=147:TL=324
  6. 60 CLS:SCREEN 0
  7. 70 PRINT"ENTER NUMBER OF CYCLES (1-4)"
  8. 80 INPUT"        OR ENTER A 0 TO QUIT: ";NC
  9. 90 IF NC=0 THEN END
  10. 100 IF NC>4 THEN 60
  11. 110 CLS:SCREEN 2
  12. 120 X=534:Y=147:TL=324:PSET(X,Y),1
  13. 130 FOR C=0 TO NC:SN(C)=0:NEXT
  14. 140 D=0:L=TL:NS=0:FOR C=1 TO NC:I=SN(C):L=L*LN(I):J=SN(C-1):NS=NS+SD(J):IF NS MOD 2=1 THEN D=D+12-RD(I):GOTO 160
  15. 150 D=D+RD(I)
  16. 160 D=D MOD 12
  17. 170 NEXT
  18. 180 X=X+1.33*L*DX(D):Y=Y-.5*L*DY(D):LINE -(X,Y),1:SN(NC)=SN(NC)+1:FOR C=NC TO 1 STEP -1:IF SN(C)<>7 THEN 200
  19. 190 SN(C)=0:SN(C-1)=SN(C-1)+1:NEXT
  20. 200 IF SN(0)=0 THEN 140
  21. 210 IF INKEY$="" THEN 210
  22. 220 GOTO 60
  23. 230 DATA 0,0,1,0,1,7,0,10,0,0,0,2,1,2
  24.